home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / langs / glisp.zoo / TAK.GL < prev    next >
Encoding:
Text File  |  1990-05-30  |  175 b   |  9 lines
  1. "Takkeuchi"
  2. (defun tak (x y z)
  3.   (if (not (< y x)) z
  4.     (tak (tak (- x 1) y z)
  5.          (tak (- y 1) z x)
  6.          (tak (- z 1) x y))))
  7. "(tak 18 12 6)"
  8. (tak 18 12 6)
  9.